% ploteo de ejer 2 a
I = [0.8 1.4];
er = 0.00001;
m = 100; 
      
[hx, hf] = biseccion(@(x) tan(x) - 2*x ,I,er,m);
	
x = linspace(0.8,1.4,100);
plot(hx,hf,'*',x,tan(x)-2*x,'r')				 	
hold off   

pause(5) 

% ploteo de ejer 2 b

I = [1 2];    
[hx, hf] = biseccion(@(x) x^2-3 ,I,er,m);
x = linspace(1,2,100);
plot(hx,hf,'*',x,x.^2-3,'r')				 	
hold off   


